Dim Day As ThisDay

Select Day                    ' jeli dzie tygodnia to:
  Case ThisDay.Monday         ' poniedziaek
    TakeHeadacheMedicine()    ' we lekarstwo na bl gowy
  Case ThisDay.Tuesday        ' wtorek
    GroceryShop()             ' zakupy
  Case ThisDay.Wednesday      ' roda
    PayBills()                ' zapa rachunki
  Case ThisDay.Thursday       ' czwartek
    PayMoreBills()            ' zapa inne rachunki
  Case ThisDay.Friday         ' pitek
    LeagueNight()             ' wieczorem jest mecz
  Case ThisDay.Saturday       ' sobota
    Bath()                    ' kpiel
  Case ThisDay.Sunday         ' niedziela
    Rest()                    ' wypoczynek
  Case Else  ' pozostae wartoci
    MessageBox.Show(Nieprawidowa warto Day)
End Select
